clear all

use coauthor.dta

//install packages
ssc install mat2txt
ssc install estout



// 1. making flest and minst refer to candidates subject number
gen flest1=0
gen minst1=0

replace flest1=kand4_1 if flest==1
replace flest1=kand4_2 if flest==2
replace flest1=kand4_3 if flest==3

replace minst1=kand4_1 if minst==1
replace minst1=kand4_2 if minst==2
replace minst1=kand4_3 if minst==3

replace flest=flest1
replace minst=minst1

// 2. Making sex a 0,1-variable
gen sex1=0
replace sex1=1 if sex==1
replace sex1=0 if sex==2
drop sex
rename sex1 sex

// 3. clean dataset
drop group profit totalprofit participate svar1-svar24 fasit1-fasit24 konstant /*
*/kjonn1-kjonn30 rangstoy numsubject timeokvelgnavnok /*
*/timeokjegharfttbeskjedomfortsett timeokmatteoppgaver1ok count /*
*/score tilfeldig rekkefolge par totsubject othersubject totscore totstoy /*
*/partnerscore timeokvisscore1ok timeokmatteoppgaver2ok /*
 */timeokvisscore2ok timeokmatteoppgaver3ok /*
 */timeokvisscore3ok timeokmatteoppgaver4ok /*
 */timeokvisscore4ok timeokmatteoppgaver5ok /*
 */timeokvisscore5ok /*
*/unique1 unique2 unique3 unique4 /*
 */navnk1 navnk2 navnk3 navnk4 k1par1 /*
 */k1par1 k1par2 k1par3 k1par4 k1par5 /*
 */k2par1 k2par2 k2par3 k2par4 k2par5 /*
 */k3par1 k3par2 k3par3 k3par4 k3par5 /*
 */k4par1 k4par2 k4par3 k4par4 k4par5 /*
*/timeokquizzok alt1-alt6 parvalg timeokmatteoppgaver6ok profitpar /*
*/timeokjegharfttbeskjedomfortsett timeokvelgenok timeokmatteoppgaver7ok /*
*/timeokjegharfttbeskjedomfortsett min_ min max_ max /*
*/timeokflestogminstok poeng profit4 timeokquestionnaireok n /* 
*/ timejegharskrevetnedidnummervisf v246 v230 timeokvelgtook ///
k1score1 k1score2 k1score3 k1score4 k1score5 k2score1 k2score2 ///
k2score3 k2score4 k2score5 k3score1 k3score2 k3score3 k3score4 ///
k3score5 k4score1 k4score2 k4score3 k4score4 k4score5 kand1-kand4 ///
flest1 minst1 k1runde1-k1runde5 k2runde1-k2runde5 ///
k3runde1-k3runde5 k4runde1-k4runde5


// 6.labelling variables
//note all in all scores, the number corresponds to a quiz. Either
//1,2,3,4,5,6 or 7
label var navn Name
label var valg1 "En kandidat i del 2"
label var valg2 "En kandidat i del 2"
label var bortvalg1 "En kandidat i del 2"
label var bortvalg2 "En kandidat i del 2"
label var kand2_1 "Kand 1 del 3"
label var kand2_2 "Kand 2 del 3"
label var kand2_3 "Kand 3 del 3"
label var kand2_4 "Kand 4 del 3"
label var kand4_1 "Kand 1 del 4"
label var kand4_2 "Kand 2 del 4"
label var kand4_3 "Kand 3 del 4"
label var partner1 "Partner i quiz 1"
label var partner2 "Partner i quiz 2"
label var partner3 "Partner i quiz 3"
label var partner4 "Partner i quiz 4"
label var partner5 "Partner i quiz 5"

//Change subject to id-number
//Session 2
replace valg1=valg1+22 if sesjon==2
replace valg2=valg2+22 if sesjon==2
replace bortvalg1=bortvalg1+22 if sesjon==2
replace bortvalg2=bortvalg2+22 if sesjon==2
replace kand2_1=kand2_1+22 if sesjon==2
replace kand2_2=kand2_2+22 if sesjon==2
replace kand2_3=kand2_3+22 if sesjon==2
replace kand2_4=kand2_4+22 if sesjon==2
replace kand4_1=kand4_1+22 if sesjon==2
replace kand4_2=kand4_2+22 if sesjon==2
replace kand4_3=kand4_3+22 if sesjon==2
replace minst=minst+22 if sesjon==2
replace flest=flest+22 if sesjon==2
replace partner1=partner1+22 if sesjon==2
replace partner2=partner2+22 if sesjon==2
replace partner3=partner3+22 if sesjon==2
replace partner4=partner4+22 if sesjon==2
replace partner5=partner5+22 if sesjon==2
replace valg=valg+22 if sesjon==2

//Session 3
replace valg1=valg1+40 if sesjon==3
replace valg2=valg2+40 if sesjon==3
replace bortvalg1=bortvalg1+40 if sesjon==3
replace bortvalg2=bortvalg2+40 if sesjon==3
replace kand2_1=kand2_1+40 if sesjon==3
replace kand2_2=kand2_2+40 if sesjon==3
replace kand2_3=kand2_3+40 if sesjon==3
replace kand2_4=kand2_4+40 if sesjon==3
replace kand4_1=kand4_1+40 if sesjon==3
replace kand4_2=kand4_2+40 if sesjon==3
replace kand4_3=kand4_3+40 if sesjon==3
replace minst=minst+40 if sesjon==3
replace flest=flest+40 if sesjon==3
replace partner1=partner1+40 if sesjon==3
replace partner2=partner2+40 if sesjon==3
replace partner3=partner3+22 if sesjon==3
replace partner4=partner4+40 if sesjon==3
replace partner5=partner5+40 if sesjon==3
replace valg=valg+40 if sesjon==3

//Session4
replace valg1=valg1+56 if sesjon==4
replace valg2=valg2+56 if sesjon==4
replace bortvalg1=bortvalg1+56 if sesjon==4
replace bortvalg2=bortvalg2+56 if sesjon==4
replace kand2_1=kand2_1+56 if sesjon==4
replace kand2_2=kand2_2+56 if sesjon==4
replace kand2_3=kand2_3+56 if sesjon==4
replace kand2_4=kand2_4+56 if sesjon==4
replace kand4_1=kand4_1+56 if sesjon==4
replace kand4_2=kand4_2+56 if sesjon==4
replace kand4_3=kand4_3+56 if sesjon==4
replace minst=minst+56 if sesjon==4
replace flest=flest+56 if sesjon==4
replace partner1=partner1+56 if sesjon==4
replace partner2=partner2+56 if sesjon==4
replace partner3=partner3+56 if sesjon==4
replace partner4=partner4+56 if sesjon==4
replace partner5=partner5+56 if sesjon==4
replace valg=valg+56 if sesjon==4

//Session 5
replace valg1=valg1+76 if sesjon==5
replace valg2=valg2+76 if sesjon==5
replace bortvalg1=bortvalg1+76 if sesjon==5
replace bortvalg2=bortvalg2+76 if sesjon==5
replace kand2_1=kand2_1+76 if sesjon==5
replace kand2_2=kand2_2+76 if sesjon==5
replace kand2_3=kand2_3+76 if sesjon==5
replace kand2_4=kand2_4+76 if sesjon==5
replace kand4_1=kand4_1+76 if sesjon==5
replace kand4_2=kand4_2+76 if sesjon==5
replace kand4_3=kand4_3+76 if sesjon==5
replace minst=minst+76 if sesjon==5
replace flest=flest+76 if sesjon==5
replace partner1=partner1+76 if sesjon==5
replace partner2=partner2+76 if sesjon==5
replace partner3=partner3+76 if sesjon==5
replace partner4=partner4+76 if sesjon==5
replace partner5=partner5+76 if sesjon==5
replace valg=valg+76 if sesjon==5

//Session 6
replace valg1=valg1+92 if sesjon==6
replace valg2=valg2+92 if sesjon==6
replace bortvalg1=bortvalg1+92 if sesjon==6
replace bortvalg2=bortvalg2+92 if sesjon==6
replace kand2_1=kand2_1+92 if sesjon==6
replace kand2_2=kand2_2+92 if sesjon==6
replace kand2_3=kand2_3+92 if sesjon==6
replace kand2_4=kand2_4+92 if sesjon==6
replace kand4_1=kand4_1+92 if sesjon==6
replace kand4_2=kand4_2+92 if sesjon==6
replace kand4_3=kand4_3+92 if sesjon==6
replace minst=minst+92 if sesjon==6
replace flest=flest+92 if sesjon==6
replace partner1=partner1+92 if sesjon==6
replace partner2=partner2+92 if sesjon==6
replace partner3=partner3+92 if sesjon==6
replace partner4=partner4+92 if sesjon==6
replace partner5=partner5+92 if sesjon==6
replace valg=valg+92 if sesjon==6

//Session 7
replace valg1=valg1+108 if sesjon==7
replace valg2=valg2+108 if sesjon==7
replace bortvalg1=bortvalg1+108 if sesjon==7
replace bortvalg2=bortvalg2+108 if sesjon==7
replace kand2_1=kand2_1+108 if sesjon==7
replace kand2_2=kand2_2+108 if sesjon==7
replace kand2_3=kand2_3+108 if sesjon==7
replace kand2_4=kand2_4+108 if sesjon==7
replace kand4_1=kand4_1+108 if sesjon==7
replace kand4_2=kand4_2+108 if sesjon==7
replace kand4_3=kand4_3+108 if sesjon==7
replace minst=minst+108 if sesjon==7
replace flest=flest+108 if sesjon==7
replace partner1=partner1+108 if sesjon==7
replace partner2=partner2+108 if sesjon==7
replace partner3=partner3+108 if sesjon==7
replace partner4=partner4+108 if sesjon==7
replace partner5=partner5+108 if sesjon==7
replace valg=valg+108 if sesjon==7

//Session 8 
replace valg1=valg1+126 if sesjon==8
replace valg2=valg2+126 if sesjon==8
replace bortvalg1=bortvalg1+126 if sesjon==8
replace bortvalg2=bortvalg2+126 if sesjon==8
replace kand2_1=kand2_1+126 if sesjon==8
replace kand2_2=kand2_2+126 if sesjon==8
replace kand2_3=kand2_3+126 if sesjon==8
replace kand2_4=kand2_4+126 if sesjon==8
replace kand4_1=kand4_1+126 if sesjon==8
replace kand4_2=kand4_2+126 if sesjon==8
replace kand4_3=kand4_3+126 if sesjon==8
replace minst=minst+126 if sesjon==8
replace flest=flest+126 if sesjon==8
replace partner1=partner1+126 if sesjon==8
replace partner2=partner2+126 if sesjon==8
replace partner3=partner3+126 if sesjon==8
replace partner4=partner4+126 if sesjon==8
replace partner5=partner5+126 if sesjon==8
replace valg=valg+126 if sesjon==8

// 5. generating total scores
gen totscore=score1+score2+score3+score4+score5 //Individual score part 1
gen totparscore=parscore1+parscore2+parscore3+parscore4+parscore5 //pair score part 1

//including the gender of each candidate part 2
// not that valg1 valg2 bortvalg1 bortvalg2 correspond to
// kand1 kand2 kand3 kand4
gen genk1=.
qui forval i = 1/`=_N' { 
	su gender if valg1[`i'] == id, meanonly 
	replace genk1 = r(min) in `i'
}

gen genk2=.
qui forval i = 1/`=_N' { 
	su gender if valg2[`i'] == id, meanonly 
	replace genk2 = r(min) in `i'
}

gen genk3=.
qui forval i = 1/`=_N' { 
	su gender if bortvalg1[`i'] == id, meanonly 
	replace genk3 = r(min) in `i'
}

gen genk4=.
qui forval i = 1/`=_N' { 
	su gender if bortvalg2[`i'] == id, meanonly 
	replace genk4 = r(min) in `i'
}


//including gender for each candidate part 3
gen genk2_1=.
qui forval i = 1/`=_N' { 
	su gender if kand2_1[`i'] == id, meanonly 
	replace genk2_1 = r(min) in `i'
}

gen genk2_2=.
qui forval i = 1/`=_N' { 
	su gender if kand2_2[`i'] == id, meanonly 
	replace genk2_2 = r(min) in `i'
}

gen genk2_3=.
qui forval i = 1/`=_N' { 
	su gender if kand2_3[`i'] == id, meanonly 
	replace genk2_3 = r(min) in `i'
}

gen genk2_4=.
qui forval i = 1/`=_N' { 
	su gender if kand2_4[`i'] == id, meanonly 
	replace genk2_4 = r(min) in `i'
}

//inclunding gender for each candidate part 4
gen genk4_1=.
qui forval i = 1/`=_N' { 
	su gender if kand4_1[`i'] == id, meanonly 
	replace genk4_1 = r(min) in `i'
}

gen genk4_2=.
qui forval i = 1/`=_N' { 
	su gender if kand4_2[`i'] == id, meanonly 
	replace genk4_2 = r(min) in `i'
}

gen genk4_3=.
qui forval i = 1/`=_N' { 
	su gender if kand4_3[`i'] == id, meanonly 
	replace genk4_3 = r(min) in `i'
}

//including the id of each candidate so that we can cluster in part 4
gen idk1=.
qui forval i = 1/`=_N' { 
	su id if valg1[`i'] == id, meanonly 
	replace idk1 = r(min) in `i'
}

gen idk2=.
qui forval i = 1/`=_N' { 
	su id if valg2[`i'] == id, meanonly 
	replace idk2 = r(min) in `i'
}

gen idk3=.
qui forval i = 1/`=_N' { 
	su id if bortvalg1[`i'] == id, meanonly 
	replace idk3 = r(min) in `i'
}

gen idk4=.
qui forval i = 1/`=_N' { 
	su id if bortvalg2[`i'] == id, meanonly 
	replace idk4 = r(min) in `i'
}

//including id for each candidate in part 3
gen idk3_1=.
qui forval i = 1/`=_N' { 
	su id if kand2_1[`i'] == id, meanonly 
	replace idk3_1 = r(min) in `i'
}

gen idk3_2=.
qui forval i = 1/`=_N' { 
	su id if kand2_2[`i'] == id, meanonly 
	replace idk3_2 = r(min) in `i'
}

gen idk3_3=.
qui forval i = 1/`=_N' { 
	su id if kand2_3[`i'] == id, meanonly 
	replace idk3_3 = r(min) in `i'
}

gen idk3_4=.
qui forval i = 1/`=_N' { 
	su id if kand2_4[`i'] == id, meanonly 
	replace idk3_4 = r(min) in `i'
}


//including gender of those they have cooperated with in part 1
gen genq1=.
qui forval i = 1/`=_N' { 
	su gender if partner1[`i'] == id, meanonly 
	replace genq1 = r(min) in `i'
}

gen genq2=.
qui forval i = 1/`=_N' { 
	su gender if partner2[`i'] == id, meanonly 
	replace genq2 = r(min) in `i'
}

gen genq3=.
qui forval i = 1/`=_N' { 
	su gender if partner3[`i'] == id, meanonly 
	replace genq3 = r(min) in `i'
}

gen genq4=.
qui forval i = 1/`=_N' { 
	su gender if partner4[`i'] == id, meanonly 
	replace genq4 = r(min) in `i'
}

gen genq5=.
qui forval i = 1/`=_N' { 
	su gender if partner5[`i'] == id, meanonly 
	replace genq5 = r(min) in `i'
}

//summarizing to the sum of female partners in quiz1-5
gen femparts=genq1+genq2+genq3+genq4+genq5


//including femparts for each candidate in part 2 and 3
gen fempartsk1=.
qui forval i = 1/`=_N' { 
	su femparts if valg1[`i'] == id, meanonly 
	replace fempartsk1 = r(min) in `i'
}

gen fempartsk2=.
qui forval i = 1/`=_N' { 
	su femparts if valg2[`i'] == id, meanonly 
	replace fempartsk2 = r(min) in `i'
}

gen fempartsk3=.
qui forval i = 1/`=_N' { 
	su femparts if bortvalg1[`i'] == id, meanonly 
	replace fempartsk3 = r(min) in `i'
}

gen fempartsk4=.
qui forval i = 1/`=_N' { 
	su femparts if bortvalg2[`i'] == id, meanonly 
	replace fempartsk4 = r(min) in `i'
}

//part3
gen fempartsk2_1=.
qui forval i = 1/`=_N' { 
	su femparts if kand2_1[`i'] == id, meanonly 
	replace fempartsk2_1 = r(min) in `i'
}

gen fempartsk2_2=.
qui forval i = 1/`=_N' { 
	su femparts if kand2_2[`i'] == id, meanonly 
	replace fempartsk2_2 = r(min) in `i'
}

gen fempartsk2_3=.
qui forval i = 1/`=_N' { 
	su femparts if kand2_3[`i'] == id, meanonly 
	replace fempartsk2_3 = r(min) in `i'
}

gen fempartsk2_4=.
qui forval i = 1/`=_N' { 
	su femparts if kand2_4[`i'] == id, meanonly 
	replace fempartsk2_4 = r(min) in `i'
}

//labelling variables created so far
label var genk1 "gender of candidate 1"
label var genk2 "gender of candidate 2"
label var genk3 "gender of candidate 3"
label var genk4 "gender of candidate 4"

label var genk2_1 "gender of candidate 1 part2"
label var genk2_2 "gender of candidate 2 part2"
label var genk2_3 "gender of candidate 3 part2"
label var genk2_4 "gender of candidate 4 part2"

label var genk4_1 "gender of candidate 1 part4"
label var genk4_2 "gender of candidate 2 part4"
label var genk4_3 "gender of candidate 3 part4"

label var genq1 "gender of partner 1"
label var genq2 "gender of partner 2"
label var genq3 "gender of partner 3"
label var genq4 "gender of partner 4"
label var genq5 "gender of partner 5"

label var femparts "number of female partners"

label var fempartsk1 "number of female partners of cand1 part2"
label var fempartsk2 "number of female partners of cand2 part2"
label var fempartsk3 "number of female partners of cand3 part2"
label var fempartsk4 "number of female partners of cand4 part2"

label var fempartsk2_1 "number of female partners of cand1 part3"
label var fempartsk2_2 "number of female partners of cand2 part3"
label var fempartsk2_3 "number of female partners of cand3 part3"
label var fempartsk2_4 "number of female partners of cand4 part3"

//include the total scores of the candidates and pairs in part 2 
gen totscorek1=.
qui forval i = 1/`=_N' { 
	su totscore if valg1[`i'] == id, meanonly
	replace totscorek1 = r(min) in `i'
}

gen totscorek2=.
qui forval i = 1/`=_N' { 
	su totscore if valg2[`i'] == id, meanonly
	replace totscorek2 = r(min) in `i'
}

gen totscorek3=.
qui forval i = 1/`=_N' { 
	su totscore if bortvalg1[`i'] == id, meanonly
	replace totscorek3 = r(min) in `i'
}

gen totscorek4=.
qui forval i = 1/`=_N' { 
	su totscore if bortvalg2[`i'] == id, meanonly
	replace totscorek4 = r(min) in `i'
}

gen totparscorek1=.
qui forval i = 1/`=_N' { 
	su totparscore if valg1[`i'] == id, meanonly
	replace totparscorek1 = r(min) in `i'
}

gen totparscorek2=.
qui forval i = 1/`=_N' { 
	su totparscore if valg2[`i'] == id, meanonly
	replace totparscorek2 = r(min) in `i'
}

gen totparscorek3=.
qui forval i = 1/`=_N' { 
	su totparscore if bortvalg1[`i'] == id, meanonly
	replace totparscorek3 = r(min) in `i'
}

gen totparscorek4=.
qui forval i = 1/`=_N' { 
	su totparscore if bortvalg2[`i'] == id, meanonly
	replace totparscorek4 = r(min) in `i'
}


//include total individual score of the candidates in part 3
gen totscorek2_1=.
qui forval i = 1/`=_N' { 
	su totscore if kand2_1[`i'] == id, meanonly
	replace totscorek2_1 = r(min) in `i'
}

gen totscorek2_2=.
qui forval i = 1/`=_N' { 
	su totscore if kand2_2[`i'] == id, meanonly
	replace totscorek2_2 = r(min) in `i'
}

gen totscorek2_3=.
qui forval i = 1/`=_N' { 
	su totscore if kand2_3[`i'] == id, meanonly
	replace totscorek2_3 = r(min) in `i'
}

gen totscorek2_4=.
qui forval i = 1/`=_N' { 
	su totscore if kand2_4[`i'] == id, meanonly
	replace totscorek2_4 = r(min) in `i'
}

//includ total individual score of the candidates in part 4
gen totscorek4_1=.
qui forval i = 1/`=_N' { 
	su totscore if kand4_1[`i'] == id, meanonly
	replace totscorek4_1 = r(min) in `i'
}

gen totscorek4_2=.
qui forval i = 1/`=_N' { 
	su totscore if kand4_2[`i'] == id, meanonly
	replace totscorek4_2 = r(min) in `i'
}

gen totscorek4_3=.
qui forval i = 1/`=_N' { 
	su totscore if kand4_3[`i'] == id, meanonly
	replace totscorek4_3 = r(min) in `i'
}

// including total parscore of candidates part 4
gen totparscorek4_1=.
qui forval i = 1/`=_N' { 
	su totparscore if kand4_1[`i'] == id, meanonly
	replace totparscorek4_1 = r(min) in `i'
}

gen totparscorek4_2=.
qui forval i = 1/`=_N' { 
	su totparscore if kand4_2[`i'] == id, meanonly
	replace totparscorek4_2 = r(min) in `i'
}

gen totparscorek4_3=.
qui forval i = 1/`=_N' { 
	su totparscore if kand4_3[`i'] == id, meanonly
	replace totparscorek4_3 = r(min) in `i'
}



//name variables not named so far
label var totscore "Total individual score of a subject in part 1"
label var totparscore "Total parscore of an individual in part 1"
label var totscorek1 "Total individual score of candidate 1 part 2"
label var totscorek2 "Total individual score of candidate 2 part 2"
label var totscorek3 "Total individual score of candidate 3 part 2"
label var totscorek4 "Total individual score of candidate 4 part 2"

label var totparscorek1 "Total parscore of candidate 1 part 2"
label var totparscorek2 "Total parscore of candidate 2 part 2"
label var totparscorek3 "Total parscore of candidate 3 part 2"
label var totparscorek4 "Total parscore of candidate 4 part 2"

label var totscorek2_1 "Total individual score of candidate 1 part 3"
label var totscorek2_2 "Total individual score of candidate 2 part 3"
label var totscorek2_3 "Total individual score of candidate 3 part 3"
label var totscorek2_4 "Total individual score of candidate 4 part 3"

label var totscorek4_1 "Total individual score of candidate 1 part 4"
label var totscorek4_2 "Total individual score of candidate 2 part 4"
label var totscorek4_3 "Total individual score of candidate 3 part 4"



//The number of times a candidate is listed first. 
qui forvalues i=1/5 {
 qui generate splitat`i' = strpos(parnavn`i'," og ")
qui replace splitat`i' = strpos(parnavn`i'," og ") if splitat`i' == 0
qui list parnavn`i' if splitat`i' == 0 
qui generate str1 firstlist`i' = "" 
qui replace firstlist`i' = substr(parnavn`i',1,splitat`i' - 1)
qui generate str1 secondlist`i' = "" 
qui replace secondlist`i' = substr(parnavn`i',splitat`i' + 1,.)
qui replace secondlist`i' = substr(secondlist`i',strpos(secondlist`i'," ") + 1,.) 
l parnavn`i' firstlist`i' secondlist`i'
l firstlist`i' secondlist`i' if trim(firstlist`i') == "" | trim(secondlist`i') == "" 
}
drop splitat1 splitat2 splitat4 splitat3 splitat5 secondlist1 ///
secondlist2 secondlist3 secondlist4 secondlist5

//generate counting variable
qui forvalues i=1/5{
qui gen first`i'=0
replace first`i'=1 if navn==firstlist`i'
}

gen totfirst=first1+first2+first3+first4+first5
drop firstlist1 firstlist2 firstlist3 firstlist4 firstlist5 ///
first1 first2 first3 first4 first5

//Include the number of times listed first as a variables in part 2
gen totfirstk1=.
qui forval i = 1/`=_N' { 
	su totfirst if valg1[`i'] == id, meanonly
	replace totfirstk1 = r(min) in `i'
}

gen totfirstk2=.
qui forval i = 1/`=_N' { 
	su totfirst if valg2[`i'] == id, meanonly
	replace totfirstk2 = r(min) in `i'
}

gen totfirstk3=.
qui forval i = 1/`=_N' { 
	su totfirst if bortvalg1[`i'] == id, meanonly
	replace totfirstk3 = r(min) in `i'
}

gen totfirstk4=.
qui forval i = 1/`=_N' { 
	su totfirst if bortvalg1[`i'] == id, meanonly
	replace totfirstk4 = r(min) in `i'
}

//label
label var totfirst "number of times a subject is listed first"
label var totfirstk1 "number of times candidate 1 is listed first part 2"
label var totfirstk2 "number of times candidate 2 is listed first part 2"
label var totfirstk3 "number of times candidate 3 is listed first part 2"
label var totfirstk4 "number of times candidate 4 is listed first part 2"






